(font-lock-make-faces): Set threshold for "light color"

at .6 of the total for white.

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 388efef6d6c644dc653d52927433713731e35a0b..f97722ac311edf945512d3228341d589e67f0280 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1181,7 +1181,7 @@ See `font-lock-make-face' and `list-faces-display'."
                       'dark))
                    ((< (apply '+ (x-color-values
                                   (cdr (assq 'background-color params))))
-                       (/ (apply '+ (x-color-values "white")) 3))
+                       (* (apply '+ (x-color-values "white")) .6))
                     'dark)
                    (t 'light)))))
   (if (null font-lock-face-attributes)